www.gusucode.com > 网域标准通用企业自助建站系统正式版 2009 > 网域标准通用企业自助建站系统正式版 2009.18/网域公司企业网站管理系统ACCESS和SQL正式版/网域公司企业网站管理系统ACCESS正式版/Count/Admin_Clear.asp
<!--#include file="inc_config.asp"--> <!--#include file="inc_Lang_admin.asp"--> <!--#include file="style/style_all.asp"--> <!--#include file="inc_admin_functions.asp"--> <!--#include file="inc_conn.asp"--> <% siteid = Request("siteid") if siteid="" then siteid=CFG_DefaultSite theurl = "http://" & Request.ServerVariables("http_host") & finddir(Request.ServerVariables("url")) tTitle = Lang_Admin_Me & "-" & Lang_Clear Response.Write replace(Style_Header,"$Title",tTitle) Response.Write replace(Style_Admin_Top,"$Lang_Admin",Lang_Admin_Me) Response.Write replace(Style_Tips,"$Tips",Lang_S_Tips) Response.Write replace(Style_MainTop,"$MainName",Lang_Clear) Response.Write "<table width=""90%"" align=""center""><tr><td>" if Request("ok")="" then Response.Write Lang_Clear_0 Response.Write Lang_Clear_1 else conn.execute "delete * from Bigsite where site_id=" & siteid Response.Write Lang_Clear_2 end if Response.Write "</td></tr></table>" Response.Write Style_MainBottom Response.Write Style_Bottom Function finddir(filepath) finddir=left(filepath,instrRev(filepath,"/")) end Function %>